(finder-compile-keywords-make-dist): New function.

diff --git a/lisp/finder.el b/lisp/finder.el
index 76e2adefa6b99b6c1ba8a9d3eccd48d68026f8c2..3d93cba79d5ab0bbfef9e3e175c9370c751a54ba 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -147,6 +147,10 @@ arguments compiles from `load-path'."
       (eval-current-buffer) ;; So we get the new keyword list immediately
       (basic-save-buffer))))
 
+(defun finder-compile-keywords-make-dist ()
+  "Regenerate `finder-inf.el' for the Emacs distribution."
+  (finder-compile-keywords default-directory))
+
 ;;; Now the retrieval code
 
 (defun finder-insert-at-column (column &rest strings)